home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / mus / edit / OctamedSS1.03c.lha / Soundstudio / Rexx / omed.lha / rexx / define_f8.omed < prev    next >
Text File  |  1996-06-06  |  450b  |  17 lines
  1. /* Define F8 */
  2. if ~open("f_keys","T:f_keys.omedtemp",R) then exit
  3. f6 = readln("f_keys")
  4. f7 = readln("f_keys")
  5. f8 = readln("f_keys")
  6. f9 = readln("f_keys")
  7. f10 = readln("f_keys")
  8. call close("f_keys")
  9. if ~open("f_keys","T:f_keys.omedtemp",W) then exit
  10. 'ed_getcurrline var f8'
  11. call writeln("f_keys",f6)
  12. call writeln("f_keys",f7)
  13. call writeln("f_keys",f8)
  14. call writeln("f_keys",f9)
  15. call writeln("f_keys",f10)
  16. call close("f_keys")
  17. wi_showstring "Defined."